// TOWN SPECIAL ENCOUNTERS
//    Town 43: New Formello

// GET PERSONALITIES FROM T44

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	set_personality_name(860,"McDonald");
	set_personality_name(861,"Foley");
	set_personality_name(862,"Thompson");
	set_personality_name(863,"Flanagan");
	set_personality_name(864,"McKinley");
	set_personality_name(865,"Dominique");
	set_personality_name(866,"McCullouch");
	set_personality_name(867,"Ahsoth");
	set_personality_name(868,"Hsska");

	set_name(4315,"Commander Ace");
	set_name(4314,"Dossor");

	set_crime_tolerance(max_crime);

	if (gf(43,9) > 0) {
		erase_char(4319);
		erase_char(4307);
		}
		else erase_char(4322);
		
	if (revive_party()) {
			print_str_color("Entering a friendly major city heals your wounds",2);
		print_str_color("  and restores your spell energy.",2);
		}
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4306,"I didn't do it.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4306,"Welcome, visitors!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4306,"Bugs everywhere.");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) > 0))
		give_char_text_bubble(4306,"There were murders!");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) > 0))
		give_char_text_bubble(4306,"Who killed them?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4319,"I REALLY want to talk to YOU!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4319,"Adventurers are sooo great.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4319,"I'm not important!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4307,"Keep hearing things.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4307,"Don't like it up there.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4307,"Yessss?");
	if ((get_ran(1,0,100) < 10) && (gf(308,4) <= 3))
		give_char_text_bubble(4322,"I need help to investigate.");
	if ((get_ran(1,0,100) < 10) && (gf(308,4) <= 3))
		give_char_text_bubble(4322,"The cave is to the north.");
	if ((get_ran(1,0,100) < 10) && (gf(308,4) <= 3))
		give_char_text_bubble(4322,"I can aid you, adventurer.");
	if ((get_ran(1,0,100) < 10) && (gf(308,4) > 3))
		give_char_text_bubble(4322,"I will stay here and watch.");
	if ((get_ran(1,0,100) < 10) && (gf(308,4) > 3))
		give_char_text_bubble(4322,"You've done what you can here.");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) == 0))
		give_char_text_bubble(4310,"This is all a mess.");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) == 0))
		give_char_text_bubble(4310,"So many bugs.");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) == 0))
		give_char_text_bubble(4310,"The Empire will kill us all.");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) > 0))
		give_char_text_bubble(4310,"Who killed them?");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) > 0))
		give_char_text_bubble(4310,"To Foley!");
	if ((get_ran(1,0,100) < 10) && (gf(43,9) > 0))
		give_char_text_bubble(4310,"To Thompson!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4311,"Another watch shift.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4311,"Sigh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4311,"More bugs today.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4312,"Lay. Lay.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4312,"Tile. Tile.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4312,"Watch where you step.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4315,"Building is too slow.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4315,"We need better defenses.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4315,"I gives the orders.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4315,"The sliths don't help.");
	if ((get_ran(1,0,100) < 15) && (gf(43,9) > 0))
		give_char_text_bubble(4315,"And now some murders!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4314,"No justice.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4314,"I give fair trade.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4314,"I do not judge.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4314,"These cavesss are cold.");

break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

